#!/bin/sh

fc-list | sed -e 's/\(:style=[[:alpha:]]*\) .*/\1/' -e 's/\(:style=[[:alpha:]]*\),.*/\1/' -e 's/\(,.*\):\(style=.*\)/\2/' -e 's/style=//' | sort > $*/FontList

while read myline ; do   echo "AddToMenu /Preferences/TitleFont \"${myline}\" TitleFont-Set \"${myline}\""; done < $*/FontList
